program testSubSetSum4MakcGenerators;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.Classes,
  System.SysUtils,
  System.Math;

var i: integer;

begin
  Randomize;
  try
    for i := 0 to StrToInt(ParamStr(1)) do
      Writeln( format('VAL%.2D=%.12D', [i, TRUNC(POWER(2, I))]) );
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
